home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / bipl.zip / PROGS.ZIP / PAGINATE.ICN < prev    next >
Text File  |  1992-11-26  |  825b  |  32 lines

  1. ############################################################################
  2. #
  3. #    File:     paginate.icn
  4. #
  5. #    Subject:  Program to insert formfeeds
  6. #
  7. #    Author:   Paul Abrahams
  8. #
  9. #    Date:     September 28, 1992
  10. #
  11. ##########################################################################
  12. #
  13. #  This program processes a document text file, inserting formfeeds
  14. #  at appropriate places.
  15. #
  16. ############################################################################
  17.  
  18. procedure main()
  19.    local j, k, line, eof
  20.  
  21.    while /eof do {
  22.       line := list(66, "")
  23.       every k := 1 to 66 do
  24.          (line[k] := read()) | (eof := 0)
  25.       every k := 66 to 0 by -1 do
  26.          if k = 0 | *trim(line[k]) > 0 then break
  27.       every write(line[j := 1 to k])
  28.       if k > 0 then
  29.          write("\f")
  30.       }
  31. end
  32.